perm filename SIZE.PAS[EAL,HE] blob
sn#674819 filedate 1982-09-27 generic text, type T, neo UTF8
%include sizhdr.pas;
begin
writeln('Vector size is ',size(vector):2,' bytes.');
writeln('Trans size is ',size(trans):2,' bytes.');
writeln('String size is ',size(strng):2,' bytes.');
writeln('Event size is ',size(event):2,' bytes.');
writeln('Frame size is ',size(frame):2,' bytes.');
writeln('Stmnt size is ',size(statement):2,' bytes.');
writeln('Varidef size is ',size(varidef):2,' bytes.');
writeln('Node size is ',size(node):2,' bytes.');
writeln('Ident size is ',size(ident):2, ' bytes.');
writeln('Token size is ',size(Token ):2,' bytes.');
writeln('Resword size is ',size(Resword ):2,' bytes.');
writeln('Pdb size is ',size(Pdb ):2,' bytes.');
writeln('Envheader size is ',size(Envheader ):2,' bytes.');
writeln('Enventry size is ',size(Enventry ):2,' bytes.');
writeln('Environment size: ',size(Environment ):2,' bytes.');
writeln('Cmoncb size is ',size(Cmoncb ):2,' bytes.');
end.